home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Smart_POS(2101682132008.psc / Smart POS / ctrlLiner.ctl < prev   
Text File  |  2006-06-01  |  2KB  |  61 lines
  1. VERSION 5.00
  2. Begin VB.UserControl ctrlLiner 
  3.    ClientHeight    =   1425
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   7155
  7.    ScaleHeight     =   1425
  8.    ScaleWidth      =   7155
  9.    Begin VB.Line Line2 
  10.       BorderColor     =   &H80000014&
  11.       X1              =   675
  12.       X2              =   5025
  13.       Y1              =   225
  14.       Y2              =   225
  15.    End
  16.    Begin VB.Line Line1 
  17.       BorderColor     =   &H80000010&
  18.       X1              =   0
  19.       X2              =   4425
  20.       Y1              =   0
  21.       Y2              =   0
  22.    End
  23. End
  24. Attribute VB_Name = "ctrlLiner"
  25. Attribute VB_GlobalNameSpace = False
  26. Attribute VB_Creatable = True
  27. Attribute VB_PredeclaredId = False
  28. Attribute VB_Exposed = False
  29. Option Explicit
  30.  
  31. Private Sub UserControl_Initialize()
  32.     On Error Resume Next
  33.     UserControl.Height = 30
  34.     UserControl.BackColor = UserControl.Parent.BackColor
  35. End Sub
  36.  
  37. Private Sub UserControl_InitProperties()
  38.         UserControl.Height = 30
  39. End Sub
  40.  
  41. Private Sub UserControl_Paint()
  42. '*** bellow code can be use also
  43. '    UserControl.Height = 30
  44. '    UserControl.Line (0, 0)-(UserControl.Width, 0), &H80000010
  45. '    UserControl.Line (0, 20)-(UserControl.Width, 20), &H80000014
  46. Line1.X1 = 0
  47. Line1.Y1 = 0
  48. Line1.X2 = UserControl.Width
  49. Line1.Y2 = 0
  50.  
  51. Line2.X1 = 0
  52. Line2.Y1 = 20
  53. Line2.X2 = UserControl.Width
  54. Line2.Y2 = 20
  55. End Sub
  56.  
  57. Private Sub UserControl_Resize()
  58.     UserControl.Height = 30
  59.     UserControl_Paint
  60. End Sub
  61.